;;; cat file contents line by line
;;     - filename: <self-describing>
;;     - returns:  file content

;;   Copyright (C) 2010  David Fernandes
;;                       <daugfernandes@aim.com>
;;
;;   This program is free software: you can redistribute it and/or modify
;;   it under the terms of the GNU General Public License as published by
;;   the Free Software Foundation, either version 3 of the License, or
;;   (at your option) any later version.
;;
;;   This program is distributed in the hope that it will be useful,
;;   but WITHOUT ANY WARRANTY; without even the implied warranty of
;;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;   GNU General Public License for more details.
;;
;;   You should have received a copy of the GNU General Public License
;;   along with this program named license.txt.
;;   If not, see <http://www.gnu.org/licenses/>


(defun s7-cat-file (fname) 
  (if (probe-file fname)           ; complete-file name or nil
    (with-open-file (stream fname) 
      (loop for line = (read-line stream nil 'foo)
          until (equal line 'foo)
          do (print line)
      )
    )
    nil ; filename not exists
  )
)

